home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / miniwrite 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  681 b   |  21 lines
  1. 1 print chr$(14):open 1,4,2:poke 646,5:print" [146]";:poke 53280,0:poke 53281,0
  2. 2 a$="":get a$:if a$="" and peek(653)<>4 then 2
  3. 3 if peek(653)and4 then poke 53280,1:goto 10
  4. 4 poke 199,0:if a$="[177]" then close 1:end
  5. 5 if a$=chr$(20) then print chr$(20)chr$(20);:a$=chr$(127):goto 10
  6. 6 if a$=chr$(13) or a$=chr$(10) or a$=>" "then print chr$(20)a$;:goto 9
  7. 7 if peek(653) and 4=0 then 2
  8. 8 print chr$(20)"#";mid$(str$(asc(a$+chr$(0))),2);"[146]";
  9. 9 print" [146]";:print#1,a$;:goto 2
  10. 10 c$(1)="":c$(2)="":c=0:get a$:if(a$<"0" or a$>"9") then 10
  11. 11 if peek(653) and 4 then poke 53280,0:if peek(653) and 4 then gosub 19:goto 17
  12. 12 if peek(53280)=0 then 17
  13. 13 get b$:if b$="" then 11
  14. 14 c=c+1:if c>2 then 16
  15. 15 c$(c)=b$:if c<2 then 11
  16. 16 poke 53280,0
  17. 17 c$=a$+c$(1)+c$(2):a=val(c$+chr$(0)):if a>255 then a$="":goto 2
  18. 18 a$=chr$(a):print chr$(20)"#";mid$(str$(a),2)"[146]";:goto 9
  19. 19 if peek(653) and 4 then 19
  20. 20 return
  21.